COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE SLAP
C00004 ENDMK
C⊗;
	TITLE SLAP
	ENTRY FOLD
FOLD	0
	HRRZ 1,1(16)
	SOJ 1,
	MOVE 2,1
	ADD 1,@0(16)
	HRRZ 3,3(16)
	SOJ 3,
	MOVEM 3,MOUP#
	ADD 3,@2(16)
	HRRZ 6,5(16)
	SOJ 6,
	MOVE 5,@4(16)
	AOJ 5,
	HRLZM 5,@6(16)
	SOJ 5,
	ADD 5,6
	SETOM FLG#
ADIN: 	AOJ 2,
	CAMLE 2,1
	JRST RETUR
	MOVE 4,MOUP
	SETZ 10
	MOVE 11,@2
SEQU:  	AOJ 4,
	CAMLE 4,3
	JRST NEWR
	CAME 11,@4
	JRST SEQU
SAAD:	AOJ 10,
	MOVE 7,2
	ADD 7,10
	CAMLE 7,1
	JRST SUBT
	CAMN 11,@7
	JRST SAAD
TOEQ:	AOJ 10
	MOVE 11,2
	ADD 11,10
	CAMLE 11,1
	JRST LWRD
	MOVE 12,4
	ADD 12,10
	MOVE 7,@11
	CAMLE 12,3
	JRST LWRD
	CAMN 7,@12
	JRST TOEQ
LWRD:	SOJ 10,
ICKY	AOJ 5,
	SUB 4,MOUP
	HRLZM 4,@5
	ADD 4,10
	HRRM 4,@5